home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs03.d81 / angles (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  3KB  |  173 lines
  1. 0 REM **********************
  2. 1 REM *       ANGLES       *
  3. 2 REM *                    *
  4. 3 REM *         BY         *
  5. 4 REM *                    *
  6. 5 REM *  STEVE MOERSCHELL  *
  7. 6 REM *                    *
  8. 7 REM *     SANTEE  CA.    *
  9. 8 REM **********************
  10. 10 A=0:B=0:C=0:D=0:E=0
  11. 11 PRINT"[147]"
  12. 12 R=0.01745329252
  13. 13 GOSUB2000
  14. 14 PRINT"IF SIDE OR ANGLE ARE UNKNOWN HIT RETURN"
  15. 15 PRINT""
  16. 16 INPUT"SIDE A";A
  17. 17 IFA=0 THEN21
  18. 18 INPUT"SIDE B";B
  19. 19 IFB=0 THEN29
  20. 20 GOTO 300
  21. 21 INPUT"SIDE B";B
  22. 22 IFB=0 THEN26
  23. 23 INPUT"SIDE C";C
  24. 24 IF C=0 THEN 100
  25. 25 GOTO 900
  26. 26 INPUT"SIDE C";C
  27. 27 IF C=0 THEN 250
  28. 28 GOTO 32
  29. 29 INPUT"SIDE C";C
  30. 30 IF C=0 THEN 160
  31. 31 GOTO 800
  32. 32 INPUT"ANGLE A";D
  33. 33 IF D=0 THEN 35
  34. 34 GOTO 3000
  35. 35 INPUT"ANGLE B";E
  36. 36 IF E=0 THEN 250
  37. 37 GOTO 3100
  38. 100 INPUT"ANGEL A";D
  39. 110 IFD=0 THEN130
  40. 120 GOTO400
  41. 130 INPUT"ANGEL B";E
  42. 140 IFE=0 THEN250
  43. 150 GOTO500
  44. 160 INPUT"ANGEL A";D
  45. 170 IFD=0 THEN190
  46. 180 GOTO600
  47. 190 INPUT"ANGEL B";E
  48. 200 IFE=0 THEN250
  49. 210 GOTO700
  50. 250 REM ** ERROR MESSAGE **
  51. 255 PRINT"INSUFFICIENT DATA"
  52. 260 PRINT"REDO FROM THE START"
  53. 270 FOR T=1 TO 2000:NEXTT
  54. 280 GOTO10
  55. 300 REM ** CALCULATIONS FOR SIDE C ,ANGLES A AND B **
  56. 305 T=A/B
  57. 310 S=ATN(T)
  58. 320 D=S/R
  59. 330 U=B/A
  60. 340 V=ATN(U)
  61. 350 E=V/R
  62. 360 C=A/SIN(S)
  63. 370 GOTO 1000
  64. 400 REM ** CALCULATION FOR ANGLE B ,AND SIDES A AND C **
  65. 405 G=D*R
  66. 410 A=TAN(G)*B
  67. 420 E=90-D
  68. 430 C=B/COS(G)
  69. 440 GOTO 1000
  70. 500 REM ** CALCULATIONS FOR ANGLE A ,AND SIDES A AND C **
  71. 505 G=E*R
  72. 510 A=B/TAN(G)
  73. 520 D=90-E
  74. 530 C=B/SIN(G)
  75. 540 GOTO 1000
  76. 600 REM ** CALCULATIONS FOR ANGLE B ,AND SIDES B AND C **
  77. 605 G=D*R
  78. 610 B=A/TAN(G)
  79. 620 E=90-D
  80. 630 C=B/COS(G)
  81. 640 GOTO1000
  82. 700 REM ** CALCULATIONS FOR ANGLES A ,AND SIDES B AND C **
  83. 705 G=E*R
  84. 710 B=TAN(G)*A
  85. 720 D=90-E
  86. 730 C=A/COS(G)
  87. 740 GOTO1000
  88. 800 REM ** CALCULATIONS FOR SIDE B ,ANGLES A AND B **
  89. 805 F=A^2
  90. 810 G=C^2
  91. 820 H=G-F
  92. 830 B=SQR(H)
  93. 840 T=A/B
  94. 850 S=ATN(T)
  95. 860 E=S/R
  96. 870 D=90-E
  97. 880 GOTO 1000
  98. 900 REM ** CALCULATIONS FOR SIDE A ,ANGLES A AND B **
  99. 905 G=C^2
  100. 910 I=B^2
  101. 920 H=G-I
  102. 930 A=SQR(H)
  103. 940 T=A/B
  104. 950 S=ATN(T)
  105. 960 D=S/R
  106. 970 E=90-D
  107. 980 GOTO 1000
  108. 1000 REM ** PRINT OUT ANSWERS **
  109. 1001 GOSUB2000
  110. 1002 PRINT"SIDE A="A
  111. 1003 PRINT"SIDE B="B
  112. 1004 PRINT"SIDE C="C
  113. 1005 PRINT"ANGLE A="D
  114. 1006 PRINT"ANGLE B="E
  115. 1010 PRINT" DO YOU WANT A HARD COPY Y/N"
  116. 1020 GETX$:IFX$=""THEN1020
  117. 1030 IFX$="Y" THEN 1100
  118. 1040 PRINT" DO YOU WANT TO GO ON Y/N"
  119. 1050 GETX$:IF X$=""THEN1050
  120. 1060 IF X$="Y"THEN 10
  121. 1070 END
  122. 1100 REM ** HARD COPY PRINT OUT **
  123. 1105 OPEN6,4:SI$=CHR$(15):BS$=CHR$(8)
  124. 1106 PRINT#6
  125. 1107 PRINT#6
  126. 1110 PRINT#6,SI$TAB(18)"B"BS$
  127. 1120 PRINT#6,SI$TAB(10)"C      [206]"BS$
  128. 1130 PRINT#6,SI$TAB(11)"[205]    [173]"BS$
  129. 1140 PRINT#6,SI$TAB(12)"[189]"TAB(2)"[206][212]"BS$
  130. 1150 PRINT#6,SI$TAB(14)"[206] [212]_A"BS$
  131. 1160 PRINT#6,SI$TAB(13)"[206]  [212]"BS$
  132. 1170 PRINT#6,SI$TAB(12)"[174][163][163][163]"BS$
  133. 1180 PRINT#6,SI$TAB(11)"[206]  ^"BS$
  134. 1190 PRINT#6,SI$TAB(10)"A   B"
  135. 1200 PRINT#6
  136. 1210 PRINT#6,SI$"SIDE A="A
  137. 1220 PRINT#6
  138. 1230 PRINT#6,SI$"SIDE B="B
  139. 1240 PRINT#6
  140. 1250 PRINT#6,SI$"SIDE C="C
  141. 1260 PRINT#6
  142. 1270 PRINT#6,SI$"ANGLE A="D
  143. 1280 PRINT#6
  144. 1290 PRINT#6,SI$"ANGLE B="E
  145. 1295 CLOSE6
  146. 1300 GOTO 1040
  147. 2000 REM ** DRAW TRIANGLE **
  148. 2005 PRINT"[147]"
  149. 2010 PRINTTAB(18)"B"
  150. 2020 PRINTTAB(12)"C    [206]"
  151. 2030 PRINTTAB(13)"[205]  [173]"
  152. 2040 PRINTTAB(14)"[189]"TAB(2)"[206][212]"
  153. 2050 PRINTTAB(14)"[206] [212]_A"
  154. 2060 PRINTTAB(13)"[206]  [212]"
  155. 2070 PRINTTAB(12)"[174][163][163][163]
  156. 2080 [153][163]11)"(null)  ^"
  157. 2090 [153][163]10)"A   B"
  158. 2100 [142]
  159. 3000 [143] ** CALCULATIONS FOR ANGLE A ,AND SIDES A AND B **
  160. 3005 G[178]D[172]R
  161. 3010 A[178]C[172][191](G)
  162. 3020 E[178]90[171]D
  163. 3030 F[178]C[174]2[171]A[174]2
  164. 3040 B[178][186](F)
  165. 3050 [137] 1000
  166. 3100 [143] ** CALCULATIONS FOR ANGLE B ,AND SIDES A AND B **
  167. 3105 G[178]E[172]R
  168. 3110 B[178]C[172][191](G)
  169. 3120 D[178]90[171]E
  170. 3130 F[178]C[174]2[171]B[174]2
  171. 3140 A[178][186](F)
  172. 3150 [137]1000
  173.